function [Mom,Result]=SubFun_Param2Mom(Info,Input)
%% Setup
ParamInput  =   Info.InputParam;

for ii=1:length(Info.ParamList)
    pp              =   Info.ParamList{ii};
    ParamInput.(pp) =   Input(Info.Idx.(pp));
end
PP          =   Setup_PP(ParamInput);
PP.InfoPrint=   0;
Result      =   struct('ParamVec',Input,'PP',PP,'Flag',1);
%% Solve the Steady State

try
    SS              =   SteadyState_Solver(PP);
    Result.SS       =   SS;
    Result.WI       =   SS_WealthIncome(PP,SS);
    Result.MPC      =   SS_MPC(PP,SS);
    Mom             =   SubFun_SS2Mom(PP,SS);
catch
    Mom             =   NaN(size(Info.Stat_Data));
    Result.Flag     =   0;
end